home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
os2
/
rexxgdb2.zip
/
RexxGDB2.BND
(
.txt
)
< prev
next >
Wrap
DB2 Bind
|
1997-08-10
|
6KB
|
116 lines
BIND V02
REXXGDB2dBpSKJINUSERID 3
USERID
INCLUDE SQLCA
BEGIN DECLARE SECTION
END DECLARE SECTION
COMMIT
ROLLBACK
EXECUTE IMMEDIATE :sqlG2
PREPARE gacols into :sqldaG2 FROM :sqlG2
PREPARE g2data into :sqldaG2 FROM :sqlG2
DECLARE g2datacur CURSOR FOR g2data
OPEN g2datacur
FETCH g2datacur USING DESCRIPTOR :sqldaG2
FETCH g2datacur USING DESCRIPTOR :sqldaG2
CLOSE g2datacur
PREPARE g2form into :sqldaG2 FROM :sqlG2
DECLARE g2formcur CURSOR FOR g2form
OPEN g2formcur
FETCH g2formcur USING DESCRIPTOR :sqldaG2
FETCH g2formcur USING DESCRIPTOR :sqldaG2
CLOSE g2formcur
PREPARE g2onerc into :sqldaG2 FROM :sqlG2
DECLARE g2onecur CURSOR FOR g2onerc
OPEN g2onecur
FETCH g2onecur USING DESCRIPTOR :sqldaG2
CLOSE g2onecur
PREPARE g2blob into :sqldaG2 FROM :sqlG2
DECLARE g2blobcur CURSOR FOR g2blob
OPEN g2blobcur
FETCH g2blobcur INTO :blob:lobi
CLOSE g2blobcur
PREPARE g2clob into :sqldaG2 FROM :sqlG2
DECLARE g2clobcur CURSOR FOR g2clob
OPEN g2clobcur
FETCH g2clobcur INTO :clob:lobi
CLOSE g2clobcur
VALUES CURRENT DATE INTO :curdate
VALUES CURRENT EXPLAIN SNAPSHOT INTO :curexplsnap
VALUES CURRENT FUNCTION PATH INTO :curfuncpath
VALUES CURRENT QUERY OPTIMIZATION INTO :curqueryopt
VALUES CURRENT SERVER INTO :curserver
VALUES CURRENT TIME INTO :curtime
VALUES CURRENT TIMESTAMP INTO :curtimestamp
VALUES CURRENT TIMEZONE INTO :curtimezone
VALUES USER INTO :user
SET CONNECTION :dbname
SET CURRENT EXPLAIN SNAPSHOT :curexplsnap
SET CURRENT PACKAGESET :curpkgset
SET CURRENT QUERY OPTIMIZATION :curqueryopt
PREPARE g2token into :sqldaG2 FROM :sqlG2
PREPARE G2S1 FROM :sqlG2
DECLARE G2C1 CURSOR FOR G2S1
OPEN G2C1
FETCH G2C1 INTO :halfword
FETCH G2C1 INTO :halfword:halfwordi
FETCH G2C1 INTO :fullword
FETCH G2C1 INTO :fullword:fullwordi
EXECUTE IMMEDIATE :sqlG2
CLOSE G2C1
PREPARE g22htmc into :sqldaG2 FROM :sqlG2
DECLARE g22htmccur CURSOR FOR g22htmc
OPEN g22htmccur
FETCH g22htmccur INTO :clob:lobi
CLOSE g22htmccur
PREPARE g22htmi into :sqldaG2 FROM :sqlG2
DECLARE g22htmicur CURSOR FOR g22htmi
OPEN g22htmicur
FETCH g22htmicur INTO :blob:lobi
CLOSE g22htmicur
PREPARE g22htmn into :sqldaG2 FROM :sqlG2
DECLARE g22htmncur CURSOR FOR g22htmn
OPEN g22htmncur
FETCH g22htmncur USING DESCRIPTOR :sqldaG2
FETCH g22htmncur USING DESCRIPTOR :sqldaG2
CLOSE g22htmncur
PREPARE g22html into :sqldaG2 FROM :sqlG2
DECLARE g22htmlcur CURSOR FOR g22html
OPEN g22htmlcur
FETCH g22htmlcur USING DESCRIPTOR :sqldaG2
FETCH g22htmlcur USING DESCRIPTOR :sqldaG2
CLOSE g22htmlcur
PREPARE g22htmlb into :sqldaG2 FROM :sqlG2
DECLARE g22htmlbcur CURSOR FOR g22htmlb
OPEN g22htmlbcur
FETCH g22htmlbcur USING DESCRIPTOR :sqldaG2
FETCH g22htmlbcur USING DESCRIPTOR :sqldaG2
CLOSE g22htmlbcur
PREPARE g22htmt into :sqldaG2 FROM :sqlG2
DECLARE g22htmtcur CURSOR FOR g22htmt
OPEN g22htmtcur
FETCH g22htmtcur USING DESCRIPTOR :sqldaG2
FETCH g22htmtcur USING DESCRIPTOR :sqldaG2
CLOSE g22htmtcur
PREPARE g22htma into :sqldaG2 FROM :sqlG2
DECLARE g22htmacur CURSOR FOR g22htma
OPEN g22htmacur
FETCH g22htmacur USING DESCRIPTOR :sqldaG2
FETCH g22htmacur USING DESCRIPTOR :sqldaG2
CLOSE g22htmacur
sqlG2
curdate
curexplsnap
curfuncpath
curqueryopt
curserver
curtime
curtimestamp
curtimezone
dbname
curpkgset
halfword
halfwordi
fullword
fullwordi